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<html> 

<form id = "get__card_info" method- "post" action = "httpiX/payment-asp^ 
<select name="card_type"> 

<option va!ue = "amex n > American Express</option> 
< option value - "visa "> Visa </option> 
< option value = "ms"> MasterCard < /option > 
</select> 

<input type= n text" name-"card_num " width = H 30 n 

onChange="handle()" /> 
<input type-^ext" name = "expiry_date n /> 
<input type- "submit" valuer "Subm it" onClick= "verify ()" /> 
</form > 
<scriptx![CDATA[ 

function handle ( ) { 

if (get_card_info. car d_type. value — "amex") { 
if (get_card_info . card_num. length != 15) 
alert ("amex should have 15 digits"); 

} else 

if (get_card_info . card_num. length != 16) 

alert ("visa and master should have 16 digits"); 

} 

function verify {) { 

var flag - window. confirm ( "submit the credit card info?"); 
if (flag) 

get_card_inf o . submit ( ) ; 

} 

]]> 

</script> 
</html> 
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:html> 

<forrn id^get.card.info" method = n post n action = "http://payment.asp n > 

<select name = B card„type n onCiick= n talk(g_^card_types) n > 

<option value="amex B >Amencan Express</option> 
< option va lue = "visa" > Visa </option> 
< option value= n ms">MasterCard</option> 
</select> 

<reco id= 'g„card„types 1 onReco = "handle()" > 
< grammar src = "./gram #card_types" /> 

</reco > 

<input type = n text" name = "card.num " width- 1, 30" 
onC!ick= H talk(g„card_num) n /> 
<reco id = M g_card„num 1 onReco ="handle() " > 

< grammar src = " ./gram #digits « /> 

</reco > 

<input type="text" name = tt expiry_date H — 

onClick="talk(g_expiry_date) t ' /> 
<reco id= "g_expiry_date " > 

< grammar src =" ./gram#dates " /> 

</reco > 

<input type="submit" value^Submit" onClick= "veriffy() n /> 

</form > 
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<scriptx![CDATA[ 
ction 

gob j -activate 



function talk(gobj) { 
O » 



function handleO { 

if (get_carcLinfo.card_num != null) { 

if (get_card_info.card_type. value — "amex") { 
if (get_card_info.card__num. length != 15} 
alert ("amex should have 15 digits"); 
} else 

if (get_card_info card_num. length != 16} 

alert ("visa and master should have 16 digits"); 



} 



} 



function verifyO { 

var flag = window. confirm("submit the credit card 
info?"); 

if (flag) { 

get_card_info. submit O ; 

} 



]]> 

</script> 
</html> 
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< body > 

<formid=" get_card_info " method =" post" action =" http://payment.asp " 
onActivate =" weicom() "> 

< prompt id =" p_welcome "> We now need your credit card </ prompt > 

< prompt id =" p_mumble "> I didn't understand you </ prompt > 
300 < prompt id ="p _card_type " bargein ="true"> What credit card would you 

use? </ prompt > 

< prompt id =" p_card__num " bargein ="true"> Please say the number" </ prompt > 

< prompt id =" p_expiry_date " bargein ="true"> What is the expiration 
date? </ prompt > 

< prompt id =" p_content "> 

303 i have your < value select =" card_type " /> < value select =" card_num " /> 

with expiration date 

< value select =" expiry_date " /> 

</ prompt > 

< prompt id =" p_confirm "> Is this correct? </ prompt > 

<reco id=" g_card 'types " onNoReco =" mumble(this, 2) "> 
onReco =" JianoleCthis, card_type) " /> 

< grammar src=" ./gram#card_types n 

</reco > 

<reco id^ n g_card_num " onNoReco «" mumble(this, 1) > 
onReco -" _handle(this, card_num) "/> 

< grammar src=" ./grarn#digits n /> 

</reco > it 
305 <reco id=" g_expiry_date " onNoReco =" mumble(this, 1) > 

onReco =" _handle{this, expiry_date) " audio ="rao tt /> 

< grammar src=" ./gram#aates " /> 

</reco > 

<reco id=" confirmation " onReco =" confirmed(this) " /> 

< grammar src-" ,/grarn#yesno n /> 

</reco > 

< select name =" card_type "> 

< option value ="amex"> American Express </ option > 

< option value = n visa "> Visa </ option > 

< option value = M ms"> MasterCard </ option > ^ 
</ select > 

< input type="text" name =" card_num " width ="30" /> 

< input type =" text" name =" expiry_ date " /> 

< input type =" submit " value =" Submit " /> 

</form> 

< script ><![CDATA[ 

function welcomeC) { 
p_wel come . acti ve () ; 
repeat = 0; 
202 checkFilledO; 



} 



function mumble (gobj, maxprompts) { 

gob j . deacti vate O ; 

p_mumbl e . acti ve () ; 
checkFil ledQ; 
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function _handle() { 
handle O ; 
checkFilledO; 

function checkFilledO { 

if (card„type. value == "") { 
p_card_type - acti ve () ; 
g_card_types . acti vate () ; retu rn ; 

} 

if (card_num. value =="") { 

p_card_num.active(); g_card_n urn. acti vateO; return; 

} 

if (expi ry_date . value == "") { 

p_expiry_data.active(); g_expi ry_date. acti vate () ; return; 

} 

p__con tent, acti vat e() ; 
p_conf i rm . acti vate() ; 
confi rmati on. acti vate Q ; 



function confi rmed (gob j) { 

if (gob j.recogRes. text == "yes") 
get_card_i nf o . submi t O ; 

} 

II user codes start here 

function handleO { 

if (get_card_info.card_type == "amex") { 

if (get_card_info.card_num. length != 15) { 

prompt. speak ("amex should have 15 digits"); 
get_card_info.card_num = ""; 

} else 

if (get_card„info.card_num. length != 16) { 

prompt. speak ('visa and master should have 16 digits"); 
get_card_info.card_num = ""; 

} } 

]]> 
</script> 
</body> 
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<body> 



<form id^get_card_info" method = ,t post" action="http://payment.asp" 
onacti vate = " welcome( )" > 

<prompt id="p_welcome ,, >We now need your credit card</prompt> 

<prompt id="p_mumble">I didn't understand you</prompt> 

<prompt id="p_card_type" bargein="true">What credit card would you 

use?</prompt> 

<prompt id="p_card_num M bargein="true">Please say the number</prompt> 
<prompt id= ,t p_expiry_date" bargein="true">What is the expiration 
date?</prompt> 

<prompt id="p_content"> 
I have your <value select="card__type" />< value select-"card_num" /> 
with expiration date <vaiue se!ect="expiry_date" /> 
</prompt> 

<prompt id="p_ confirm" >Is this correct?</prompt> 

<reco id="g_get_card_info" onReco="_handIe()" onNoReco' ="mumble(this)"> 

<grammar src ="./gram/getPaymenf /> 

<bind target-"card_type" value="/card/type" /> 
- nf _ <bind target= ,t card__num" value= ,, /card/nun^lber ,, /> 

<bind target-"expiry_date" vaiue= , 7card/expr_date" /> 
</reco> 

<reco id ^'confirmation" onReco ="confirmed(this) onNoReco= ,, mumble(this)" /> 
<grarrimar src = ,, ./gram#yesno'7> 



<option value= M amex">American Express</option> 
<option vaiue="visa ,, >Visa</option> 
<option value-"ms">MasterCard</option> 

</select> 

<input type="text" name= M card_num" width="30" /> 
<input type= M text l! name="expiry_date n /> 
<inpyt type="submit" value="Submit" /> 

</form> 

<scriptx![CDATA[ 

function welcomeO { 
p_wel come . act i ve O ; 
repeat = 0; 
checkFilledO; 

function mumble (gob j) { 
gob j .deactivate () ; 
p_mumbl e . acti ve O ; 
checkFilledO; 

function JiandleO { 
handle() ; 
checkFilledO; 

} 
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function checkFilledO * r 
if (card_type. value = ) { 

p_card_type.active() ; ; do_field.activate() ; return; 

if (card_num. value ="") { 

p_card_num.active(); do_field.activate() ; return; 

if (expiry_date. value = "") { 

p„expiry_data.active(); do_field.activate() ; return 

p_content . activate O ; 
p_conf i rm . activate () ; 
conf i rmati on . acti vateO ; 

function conf i rmed (gob j) { 

if (gob j.recogRes. text == 'yes ) 

get_card_i nfo. submit (gensml ()) ; 

} 

// 

// user codes start here 

function handle O { „ x r 

if (field = get„card_info.card_num) { 

if (get_card_i nfo. card._num. length != 15) { 

prompt. speak ("amex should nave 15 digits ); 

get_card_info.card_num = ; 

} el se 

if (get_card_i nfo. card_num. length 1= 16) { 
prompt. speak ("visa should have 15 digits"); 
get_card„info.card_num = ""; 

function gensml () { 

str = *<smlxcredit_card type- 
str += card_type. value; str += ,M xnumber> ; 
str += card_number. value; str += '</numberxexpi re> 
str += expiry_date. value; str += _ 
</expi rex/credi t_cardx/sml> 1 ; 
return str; 

} 

]]> 
</script> 
/body> 
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SAMPLE ASP+ PAGE 



<%@ Page language=" Jscript" AutoEventWireup^ false" 

Inherits="Credit . Transaction" %> 

<html><head> 

<! — ASPX page for both voice-only & multimodal credit card example — > 
<script> 

function handle ( ) { 

if (field == get_card_info.card_num) { 

if (get_card_info. car d_num. length !- 15) { 
prompt . speak ("amex should have 15 digits"); 
get__card_info.card_num = ""; 

} 

} else 

if {get_card_info.card__num. length 1= 16) { 
prompt. speak ("visa should have 15 digits"); 
get_card_info.card_num - ""; 

} 

} 

function gensml() { 

str = ^smlxcredit^cardxcarc^type:^ ; 

str += card_type. value; str +- ^/card^ypexnumberV ; 

str += card_number. value; str += T </number><expire> 1 ; 

str += expiry_date .value; str += T </expirex/credit_cardx/sml>' 

return str; 

} 

</script> 

<script runat="server"> 
function Page_Load (obj, args) { 
if (PostBack) { 

validator = new System. Speech. SMLValidator (". /Credit SDL.xml") 
dsml - validator .Evaluate (args) ; 
Navigate (ChoosePage (dsml) ) ; 
} else { 

// initialize fields with args 

} 

} 

</script> 

</head> 

<body> 

<speech:form id="get_card_inf o" style="system_initiative" 
prompt^" . /prompt /get Payment" onsubmit="gensml ( ) "> 
<speech: choice name="card_type" prompt="What credit card would you 
use?" 

grammar^" . /gram#card_types" onPhraseFinish=" handle ( ) " 
<option>American Express</option> 
<option>Visa</option> 
<option>Mastercard </option> 
< /speech : choice> 

<speech: textbox name="card_number" prompt=" Please say the number" 

grammar^" . /gramidigits " onPhraseFinish="handle ( ) "> 
<speech: textbox name-"expiry_date" prompt~"What is the expiration 
date? " 

grammar=" . /gram#dates" onPhraseFinish=" handle ( ) "/> 

</ speech : f orm> 

</body> 

</html> 
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